home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / e-tools / egui-tools / src / flexegui.e < prev    next >
Encoding:
Text File  |  1996-06-15  |  2.8 KB  |  80 lines
  1. /*
  2.  *      Demo eines Flexiblen GUI`s unter EasyGUI
  3.  *    -========================================-
  4.  *      © 1996 TurricaN from THE DARK FRONTIER
  5.  */
  6.  
  7. OPT     OSVERSION       =       37      -> Erst ab OS 2.x
  8.  
  9. MODULE  'tools/easygui'                 -> EasyGUI-Modul einbinden
  10. -> MODULE  'tools/guitools'                -> EasyGUI-Zusatz einbinden (Nur wenn die Routinen benutzt werden!)
  11.  
  12. DEF     rows,                           -> Wert für ROWS vordefinieren
  13.         cols,                           -> Wert für COLS vordefinieren
  14.         eqrows,                         -> Wert für EQROWS vordefinieren
  15.         eqcols,                         -> Wert für EQCOLS vordefinieren
  16.         bevel,                          -> Wert für BEVEL vordefinieren
  17.         bevelr,                         -> Wert für BEVELR vordefinieren
  18.         space,                          -> Wert für den Space
  19.         multibutton,                    -> Um Buttons zu Addn...
  20.         text                            -> Für die titelzeile
  21.  
  22.  
  23. PROC main()                             -> Main-Prozedur...
  24.  
  25.  DEF    title                           -> Variable für den Fenstertitel
  26.  
  27. -> Routine um alles vorzudefinieren!
  28.  
  29.  rows:=  ROWS  
  30.  cols:=  COLS  
  31.  eqrows:=EQROWS
  32.  eqcols:=EQCOLS
  33.  bevel:= BEVEL 
  34.  bevelr:=BEVELR
  35.  
  36. -> Routine ende
  37.  
  38.   title:='Flex-GUI-Demo'
  39.  
  40.    multibutton:=[BUTTON,0,'Weiter']     -> Standartbutton...
  41.  
  42.     text:=[TEXT,'Test 1 - Normale werte','',FALSE,3]    -> Text festlegen!
  43.  
  44.      test(title)                        -> Test!
  45.  
  46. -> Routine um alles zu invertieren
  47.  
  48.  IF rows=ROWS THEN rows:=COLS ELSE rows:=ROWS
  49.  IF cols=COLS THEN cols:=ROWS ELSE cols:=COLS
  50.  IF eqrows=EQROWS THEN eqrows:=EQCOLS ELSE eqrows:=EQROWS
  51.  IF eqcols=EQCOLS THEN eqcols:=EQROWS ELSE eqcols:=EQCOLS
  52.  IF space=SPACEH THEN space:=SPACEV ELSE space:=SPACEH
  53.  IF bevel=BEVEL THEN bevel:=BEVELR ELSE bevel:=BEVEL
  54.  IF bevelr=BEVELR THEN bevelr:=BEVEL ELSE bevelr:=BEVELR
  55.  
  56. -> Routine ende
  57.  
  58.      multibutton:=[SBUTTON,1,'OK']      -> S-Button mit anderem Rückgabewert + anderem Text!
  59.  
  60.     text:=[TEXT,'Test 2 - Inverse werte','',FALSE,3]    -> Text2 festlegen!
  61.  
  62.    test(title)                          -> Test!
  63.  
  64. ENDPROC
  65.  
  66. PROC test(title)                        -> ALLGEMEINE (!) Testprozedur
  67.  
  68.  easygui(title,                         -> Easygui-Fenster mit dem Titel >title< öffnen...
  69.         [rows,                          -> Variable für ROWS
  70.         [bevel,                         -> Variable für COLS
  71.         [rows,                          -> Variable für ROWS
  72.         [bevelr,                        -> Variable für BEVELR
  73.                 text],                  -> Einen Text ausgeben
  74.         [cols,                          -> Variable für COLS
  75.                 multibutton,            -> Multibutton
  76.                 multibutton             -> Multibutton
  77.         ]]]])                           -> Brav alle Klammer wieder schließen...:-)
  78.  
  79. ENDPROC
  80.